home *** CD-ROM | disk | FTP | other *** search
/ AMIGA-CD 2 / Amiga-CD - Volume 2.iso / ungepackte_daten / 1992 / 12 / 02 / tips & tricks / opt. täuschung (basic) / tip.txt < prev   
Encoding:
Text File  |  1995-06-01  |  1.4 KB  |  55 lines
  1. 4096 Farben ohne Hold-and-Modify, also absolut frei definierbar in
  2. jeder Auflösung, das bietet dieses Programm. Tja, die Sache hat nur einen
  3. Haken: Man braucht eine Sonnenbrille, wenn man es ansehen will ohne verrückt
  4. zu werden. Es flimmert nämlich, und nicht wenig. Ich habe mir die Sache
  5. eigentlich für Fraktale augedacht, da ich sie vom Bildschirm abfotografieren
  6. wollte. Dazu ist Hires-Interlace gerade gut genug. Nur 16 Farben ...
  7.   Wenn man hingegen drei Bildschirme (einen mit 16 Rottönen, einen mit 16
  8. Grüntönen und einen mit 16 Blautönen) und zwischen diesen schnell hinundher
  9. schaltet, hat man 4096 Farben. (Für den Fotoapparat zumindest, die Fraktale
  10. sind super)
  11. Folgendes Demo zeichnet ein Dreieck mit ähm ... wieviele Farben sind es
  12. eigentlich?
  13. (Vorsicht: Sonnenbrille nicht vergessen)
  14.  
  15.  
  16. OPENS 1,0,0,735,512,4,4+32768
  17. OPENW #1,0,0,735,512,0,4096,1
  18. FOR i=0 TO 15
  19.   SETCOLOR i,i,0,0
  20. NEXT i
  21. FOR i=50 TO 0 STEP -50/16
  22.   COLOR 16-i/(50/16)
  23.   PCIRCLE 300,320,i*3
  24. NEXT i
  25. OPENS 2,0,0,735,512,4,4+32768
  26. OPENW #2,0,0,735,512,0,4096,2
  27. FOR i=0 TO 15
  28.   SETCOLOR i,0,i,0
  29. NEXT i
  30. FOR i=50 TO 0 STEP -50/16
  31.   COLOR 16-i/(50/16)
  32.   PCIRCLE 400,320,i*3
  33. NEXT i
  34. OPENS 3,0,0,735,512,4,4+32768
  35. OPENW #3,0,0,735,512,0,4096,3
  36. FOR i=0 TO 15
  37.   SETCOLOR i,0,0,i
  38. NEXT i
  39. FOR i=50 TO 0 STEP -50/16
  40.   COLOR 16-i/(50/16)
  41.   PCIRCLE 350,260,i*3
  42. NEXT i
  43. REPEAT
  44.   FRONTS 1
  45.   VSYNC
  46.   FRONTS 2
  47.   VSYNC
  48.   FRONTS 3
  49.   VSYNC
  50. UNTIL MOUSEK=1
  51. CLOSES 1
  52. CLOSES 2
  53. CLOSES 3
  54.  
  55.